var menu = 0

function make_menus()
{
nb_menus = menus.length-1
for (i=1;i<=nb_menus;i++)
	{
		var node = svgdoc.createElementNS("http://www.w3.org/2000/svg" , "text")
		node.setAttributeNS(null , "x" , menus[0][4]*(2*i-1)/2)
		node.setAttributeNS(null , "y" , menus[0][5]*0.8)
		node.setAttributeNS(null , "font-size" , menus[0][6])
		node.setAttributeNS(null , "font-family" , menus[0][7])
		node.setAttributeNS(null , "text-anchor" , "middle")
		node.setAttributeNS(null , "fill" , menus[0][3])
		var texte=svgdoc.createTextNode(menus[i][0]);
		node.appendChild(texte);
		where = svgdoc.getElementById("bar_menus")
		where.appendChild(node)
		var node = svgdoc.createElementNS("http://www.w3.org/2000/svg" , "rect")
		node.setAttributeNS(null , "id" , "menu" + i.toString())
		node.setAttributeNS(null , "x" , menus[0][4]*(i-1))
		node.setAttributeNS(null , "y" , "0")
		node.setAttributeNS(null , "width" , menus[0][4])
		node.setAttributeNS(null , "height" , menus[0][5])
		node.setAttributeNS(null , "fill" , "LightGray")
		node.setAttributeNS(null , "fill-opacity" , "0.1")
		where=svgdoc.getElementById("bar_menus")
		where.appendChild(node)
	}
objet=svgdoc.getElementById("sub_menu")
objet.setAttributeNS(null,"fill",menus[0][1])
objet.setAttributeNS(null,"width",menus[0][4])
objet=svgdoc.getElementById("over_menu")
objet.setAttributeNS(null,"width",menus[0][4])
objet=svgdoc.getElementById("inv_menu")
objet.setAttributeNS(null,"fill",menus[0][2])
objet.setAttributeNS(null,"width",menus[0][4])
objet.setAttributeNS(null,"height",menus[0][5])
objet=svgdoc.getElementById("bar")
objet.setAttributeNS(null,"fill",menus[0][0])
objet.setAttributeNS(null,"height",menus[0][5])
}

function show_menus(evt)
{
cible=evt.target.getAttributeNS(null,"id")
if (menu!=0) 
	hide_menus(evt)
menu=parseInt(cible.substring(4,5));
nb_menus=menus[menu].length-1;
height=menus[0][5]*nb_menus
node=svgdoc.getElementById("sub_menu");
node.setAttributeNS(null,"x",menus[0][4]*(menu-1))
node.setAttributeNS(null,"y",menus[0][5])
node.setAttributeNS(null,"height",height)
node.setAttributeNS(null,"visibility","visible")
node=svgdoc.getElementById("over_menu")
node.setAttributeNS(null,"x",menus[0][4]*(menu-1))
node.setAttributeNS(null,"y",menus[0][5])
node.setAttributeNS(null,"height",height)
node.setAttributeNS(null,"visibility","visible")
for (i=1;i<=nb_menus;i++)
	{
		var node = svgdoc.createElementNS("http://www.w3.org/2000/svg" , "text")
		node.setAttributeNS(null , "id" , "smenu" + i.toString())
		node.setAttributeNS(null , "x" , menus[0][4]*(2*menu-1)/2)
		node.setAttributeNS(null , "y" , menus[0][5] * (i+0.8))
		node.setAttributeNS(null , "font-size" , menus[0][6])
		node.setAttributeNS(null , "font-family" , menus[0][7])
		node.setAttributeNS(null , "text-anchor" , "middle")
		node.setAttributeNS(null , "fill" , menus[0][3])
		var texte=svgdoc.createTextNode(menus[menu][i]);
		node.appendChild(texte);
		where = svgdoc.getElementById("objet");
		where.appendChild(node)
	}
}

function inverse_menus(evt)
{
	if (ASV == "6")
	{
		var matrix = evt.target.getScreenCTM().inverse()
		ym = parseInt(evt.clientX * matrix.b + evt.clientY * matrix.d + matrix.f) - 1
	}
	else
		ym = coordo_y(evt.clientY) - 1
	sous_menu=Math.floor(ym/menus[0][5]);
	if (sous_menu>0)
	{
		node = svgdoc.getElementById("inv_menu")
		node.setAttributeNS(null,"x",menus[0][4]*(menu-1))
		node.setAttributeNS(null,"y",menus[0][5]*sous_menu);
		node.setAttributeNS(null,"visibility","visible")
	}
}

function choice_menus(evt)
{
	if (ASV == "6")
	{
		var matrix = evt.target.getScreenCTM().inverse()
		ym = parseInt(evt.clientX * matrix.b + evt.clientY * matrix.d + matrix.f) - 1
	}
	else
		ym = coordo_y(evt.clientY) - 1
	sub_menu = Math.floor(ym/menus[0][5]);
	if (sub_menu>0)
	{
		var menu2 = menu
		hide_menus(evt)
		use_menus(menu2,sub_menu,evt)
	}
}

function hide_menus(evt)
{
if (menu!=0)
	{
		node = svgdoc.getElementById("sub_menu")
		node.setAttributeNS(null,"visibility","hidden")
		node = svgdoc.getElementById("inv_menu")
		node.setAttributeNS(null,"visibility","hidden")
		node = svgdoc.getElementById("over_menu")
		node.setAttributeNS(null,"visibility","hidden")
		nb_menus=menus[menu].length-1;
		for (i=1;i<=nb_menus;i++)
		{
			node=svgdoc.getElementById("smenu"+i.toString(10))
			contents = svgdoc.getElementById ("objet")
			contents.removeChild (node)
		}
	}
menu = 0
}
